ecl-max(x)
== ecl_ind(x;k,test.0;a,b,A,B.if A<BB == ecl_ind(x;k,test.0;a,b,A,B.else A fi;a,b,A,B.if A<BB == ecl_ind(x;k,test.0;a,b,A,B.else A fi;a,b,A,B.else A fi;a,b,A,B.if A<BB == ecl_ind(x;k,test.0;a,b,A,B.else A fi;a,b,A,B.else A fi;a,b,A,B.else A fi;a,A.A;a,m,A.A;a,m,A.if A<m == ecl_ind(x;k,test.0;a,b,A,B.else A fi;a,b,A,B.else A fi;a,b,A,B.else A fi;a,A.A;a,m,A.A;a,m,A.if m == ecl_ind(x;k,test.0;a,b,A,B.else A fi;a,b,A,B.else A fi;a,b,A,B.else A fi;a,A.A;a,m,A.A;a,m,A.else A fi;a,l,A.A)